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MODULE parse2 (IDENT="V04-000" 
= BEGIN ADDRESSING_MODE (EXTERNAL=GENERAL) ) 
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'® 

's COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 

i: ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH T SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
' COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
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® 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: Conpokat ite. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
ts SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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'4¢ 
! Facility: Command Definition Utility, CLD Parser Module 2 


! Abstract: This module is one of a few modules that implements the 
arser for CLD files. This parser translates the CLD source 
anguage into an intermediate representation composed of 
nodes linked in a directed graph. 


i Author: Paul C. Anagnostopoulos 


1 
1 
i] 
i] 
1 
! 
‘ 
: Environment: Standard CDU environment. 
i 
Creation: & December 19 

1 

1 


i Modifications: 


itor ory velitapgetsy: :lib' 
require itab def 
require ‘cdureq'; 
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TABLE OF 


routine 
cdu$param_clause, 
cdu$qual_Clause, 
cdu$Stype_clause, 
cdu$keyword_clause, 
cdu$common_Clause, 
cdu$value_Clause, 
cdu$builtin_type, 
cduScli_flag; 


EXTERNAL 


external routine 


cdu$check_for_children, 
cdu$creaté_node, 
cdu$get_next_token, 

odus ookup_child, 

cdu groper’. aoye tax. error, 
cdu$token_must_be; 


cdu$gl_token_class: long, 
cdu$gq_token: descriptor; 


CONTENTS 


REFERENCES 


X-11 
K$V 
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| PARS 18.50 “1984 23:48:10 VAX-11 Bliss-32 V4.0-74 Page 3 
Myer 1278 08-1 3b $7 :26 DISKSVMSMASTERSCCDU. SRCIPARSE2.032: 1 . (3) 
ee . 13° (1 fee 

; fr 14 1! Description: This syntox routine egg te the ‘‘param-clause’’ construct, 
a 1 : which is used to define the characteristics of a parameter. 
E § nH : Parameters: parent By reference, parent node of this construct. 
; i§ 1! Returns: The top-level node representing the parameter clause, 

; 5 : : } or zero if there aren't any more. 

; 8B oBee | i 

; «88 08 1 ! Notes: 

: «6«89 oe 4 1 !-- 

; Ww ae 

; «(91 08 $ 1 GLOBAL ROUTINE cdu$Sparam_clause(parent: ref node) 

3 4 08 = BEGIN 

oa 0828 

3; 94 +134 local 

; 0830 clause: ref node; 

5; 0831 

; «97 bees 

3 4 eth ! Determine which kind of clause we have. 

; +s tH if token_is(tkn_k_symbol,"PROMPT') then ( 

: 196 + $44 ! We have an PROMPT clause. It conflicts with any existing clause. 
: 106 0839 if cdu$Scheck_for_children(.parent,node_k_prompt) then 

; 133 pee cdu$Sreport_syntax_error (msg(cdu$_dupprompt)); 

: 107 084 ! Bypass any optional equal sign. 

: 108 084 ag ne Cn 

; 109 0844 cdu$get_next_token(); 

: 119 poe? skip_optionaT_token(tkn_k_equal); 

: < 0847 ! Now we have a symbol or string which is the prompt. Store the 

3 BF pace ; ! prompt in a node. 

: 115 0850 ; clause = cdu$create_node(node_k_prompt,.cdu$gq_token[len],.cdu$gq_token(ptr]); 
; 116 0851 if token_is(tkn_k_symbol) then 

3; (497 0836 Cdu$get_next_token() 

; 118 085 else 

; 119 0854 cdu$token_must_be(tkn_k_string); 

; 120 0855 return .clause; 

3 $1 0838 ); 

= ¢ 085 

; \¢? +t ! We either have a common clause now, or we've run out of clauses. 

; 158 0860 return cdu$common_clause(.parent); 

; 126 0861 

Oar 0862 1 END; 


-TITLE PARSE2 
-IDENT \v04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


ch Cr —_—— —<—<——_—_ 


] 


<vU 


; Routine Size: 


L 


131 bytes, 


1$-30p-1984 
14-Sep-1984 


54 50 4D 4F 52 50 00000 P.AAA: 


007C 00000 
26 000000006 00 9€ 0000 
000000006 00 9€ 000 
54 000000006 00 9E poe i9 
0D 96 Di 0001 
E is QOO1A 
50 64 D0 0001C 
60 FC AG 2D Boo ss 
0000" CF bO5e 
79 12 00028 
13° DD Boose 
04 AC 0D 0002C 
000000006 00 02 FB st 
0D 50 €9 000 
000000006 8F DD 00039 
000000006 00 01 FB 0003F 
65 00 FB 00046 
06 66 D1 00049 
03 12 0004C 
65 00 FB 0004E 
64 po 00051 
7€ FC AS = 3C 00053 
13 0D 00057 
000000006 00 03 fe 4 Fes 
52 50 D0 00060 
0D 66 01 00063 
05 12 ve 
65 00 FB 000 
09 11 00068 
000000006 00 Of PB 099 
50 52 BO 000 
04 se 
04 AC DD 00 
0000v CF 01 FB 000 
04 00082 


Routine Base: $CODE$ + 0000 


=" 
ww 


~N 
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ASCII 
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\PROMPT\ 


CDUSCHECK FOR CHILDREN 
CDUSCREATE N 


bUSGL_ TOKEN. CLASS, #13 


CDUSGQ_TOKEN+4, RO 
CDUSGQ_ TOKEN, (RO), #0, #6, P.AAA 


5$ 

#1 

PARENT 

#2, CDUSCHECK_FOR_CHILDREN 

#cbus DUPPROMPT 
CBUSREPORT_SYNTAX_ERROR 

50° CDUSGET_NERT_TOKEN 

cDUSGL_ TOKER_CLASS, #6 

#0, COUSGET NEXT_TOKEN 

CDUSGQ_TOKER+4 

CousGa_ TOKEN, =-(SP) 

a. COUSCREATE_ NODE 

DUSGL_TOKEN_CLASS, #13 

a. CDUSGET_NEXT_TOKEN 


#11 
#1, CDUSTOKEN_MUST_BE 
CLAUSE, RO 


PARENT 
#1, CDUSCOMMON_CLAUSE 
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ee 

! Description: This synten routine parses the ‘‘qual-clause’’ construct 

; which is used to describe the characteristics of a qualifier. 
Parameters: parent By reference, parent node of this construct. 
i Returns: The top-level node representing the qualifier clause, 

or zero if there aren't any more. 


; Notes: 
GLOBAL ROUTINE cdu$qual_clause(parent: ref node) 
= BEGIN 


local 
clause: ref node; 
! Determine which kind of clause we have. 
if token_is(tkn_k_symbol,*BATCH') then ( 
! We have a BATCH clause. It is represented by a node. 


cdu$get_next_token(); 
return cduScreate_node(node_k_batch); 


if token_is(tkn_k_symbol,*NEGATABLE") then ( 


! We have a NEGATABLE clause. It is represented by a node. 
! This clause conflicts with any existing NONNEGATABLE clause. 


if cduScheck_for_children(.parent,node_k_nonnegatable) then 
cduSreport_syntax_error(msg(cdu$_confnonneg)); 


cdu$get_next_token(); 
return cduScreate_node(node_k_negatable); 
if token_is(tkn_k_symbol,"NONNEGATABLE') then ( 


! We have a NONNEGATABLE clause. It is represented by a node. 
! This clause conflicts with any existing NEGATABLE clause. 


if cduScheck_for_children(.parent,node_k_negatable) then 
cdu$report_syntax_error(msg(cdu$_confneg)); 


cdu$get_next_token(); 
R return cduScreate_node(node_k_nonnegatable); 
if token_is(tkn_k_symbol, PLACEMENT’) then ( 
! We have an PLACEMENT clause. It conflicts with any existing clause. 
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if cduScheck_for_children(.parent,node_k_placement) then r 
cduSreport_syntax_error(msg(cdu$_dupplace)); 


! Bypass any optional equal sign. 


cduSget_next_token(); 
skip_optional_token(tkn_k_equal); 


' Now we have a s 


SBSOSOOOOODH 


BO IA DOS OUND 


bol which tell us where the qualifier can appear 
! on the command line. Create a node with the symbol 


SSS Sse 
Oe Ge Se ee Oe Se Ge Se Ge Ge Se Ge Ge Fe Ge Se SH Ge Se Ge Se SH Se Se os 


9 if not token_is(tkn_k symbol,'GLOBAL’) and 
9 not token_is(tkn_k_symbol,"LOCAL') and i 
9 not token_is(tkn_k_symbol, POSITIONAL’) then i 
09 cdu$Sreport_syntax_error(msg(cdu$_invplace)); i 
09 clause = cduScreate node(node k_placement,.cdu$gq_token[len],.cdu$gq_token[ptr]); i 
23 cduStoken_must_be(tkn_k_symbol); i 
9 return .cTause; 
09 ); i 
0939 i 
tre ! We either have a common clause now, or we've run out of clauses. i 
Beg return cdu$Scommon_clause(.parent); 
0944 1 END; 
-PSECT SPLITS ,NOWRT ,NOEXE , 2 

48 43 54 41 42 00006 P.AAB: .ASCII \BATCH\ : : 

45 4€ 42 41 54 41 47 45 4E 00008 P.AAC: .ASCII \NEGATABLE\ : ; 

45 4C 462 41 54 41 47 45 4f 4E 4F 4E 00014 P.AAD: ASCII \NONNEGATABLE\ : i 
54 4E 45 4D 45 43 41 4C $0 00020 P.AAE: .ASCII \PLACEME : 3 

4C 41 42 4F 4C 47 00029 P.AAF: . ASCII \GLOBAL\ : i 

4C 41 43 4F 4C OO02F P.AAG: .ASCII \LOCAL\ : i 

4C 41 4E 4F 49 54 49 53 4F 50 00034 P.AAH: .ASCII \POSITIONAL\ : : 
.EXTRN CDUS_CONFNONNEG i 

-EXTRN CDUS-CONFNEG, CDUS_DUPPLACE i 

-EXTRN CDUSTINVPLACE 

.PSECT S$CODES,NOWRT,2 

OFFC 00000 -ENTRY CDUSQUAL CLAUSE , Save RZ,R3.R4,R5,R6,R7,RB,-; 0875 

58 000000006 00 9E 0000 MOVAB CDUSCREATE_NODE, R11 : 

A 000000006 00 9€ 000 MOVAB CDUSCHECK_FOR_CHILDREN, R10 ; i 

9 9 y 9—E 0001 MOVAB P.AAB ; ; 

: ( 9€ 0001 VAB CDUSREPORT_SYNTAX_ERROR, R8 : 

6 9 G6 GE O01 MOVAB CDUSGET_NERT_TOKER, R7 : i 

$ 00000006 9E 00 MOVAB CDUSGL_TOKEN“CLASS, R6 ; 

00000006 00 43 a VAB CDUSGOQ"TOKEN?4, 3 i 

D b 1 cnet CDUSGL-TOKEN._CLASS, #3 ; 0884 : 

50 6 06 MOVL  CDUSGQ_TOKEN*4, RO : 

05 00 60 FC 3605S) 2D 00039 CMPCS  CDUSGQ-TOKEN, (RO), #0. #5, P.AAB : } 


co 


09 00 
oc 00 
09 00 


67 
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09 
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1 
i CDUSGET_NEXT_TOKEN 
5 
SuvOeL. FOREN _CLASS, #13 


CDUSGO_TOKEN+4, RO 
CDUSGO-TOKEN, (RO), #0, #9, P.AAC 


3$ 

#22 

PARENT 

: P | btnan on 
#CDUS_ CONF NONNEG 

#1, CBUSREPORT SYNTAX_ERROR 
#0, CDUSGET_NERXT_TOKEN 

as! 
CDUSGL_TOKEN_CLASS, #13 


CDUSGQ_TOKEN+4, RO 
CDUSGO"TOKEN, (RO), #0, #12, P.AAD 


6$ 
a 


PARENT 
a. CDUSCHECK FOR CHILDREN 
#CDUS_CONFNEG 

#1, CBUSREPORT_SYNTAX_ERROR 
A} CDUSGET_NERT_TOKEN 

#1, CDUSCREATE_NODE 
CDUSGL_TOKEN_CLASS, #13 


CDUSGQ_TOKEN+4, RO 
CDUSGQ~TOKEN, (RO), #0, #9, P.AAE 


13$ 
3 


#2 
PARENT 
#2, CDUSCHECK_FOR_CHILDREN 


#CbUS_DUPPLACE 

#1, CBUSREPORT SYNTAX_ERROR 
, CDUSGET NEXT TOKEN 

DUSGL_TOKER_CLASS, #6 

#0, CDUSGET_NEXT_TOKEN 


CDUSGL TOKEN CLASS, #13 


R4 
CDUSGQ_TOKEN+4, RO 


& P 
DT SKSUMSMASTER CCDU. SRCSPARSE2.B32; 1 : 


ge 
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0912. 
0913. 


0916 | 


0920 


0921 
0925 
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0931 


ge 
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Sep-19 


06 00 60 FS as 20 a8 CMPCS CDUSGO_TOKEN, (RO), #0, #6, P.AAF : 
g9 13 EA BEQL ©=-:128 ; 
1 4 € get 10$: BLBC R4, 118 $ 0932 
5 63 BO EF MOVL.  CDUSGQ_TOKEN*4, RO : 
05 00 6 eS Ad 2b a8 CMPCS CDUSGQ-TOKEN, (RO), #0, #5, P.AAG : 
19 13 FA BEQL F 
Q 54 €9 OOOFC BLBC «=O ssa, '118 > 0933 
65 BO OOFF MOVL.  CDUSGQ_TOKEN+4, RO : 
OA 00 6 FC a3 D o198 CMPCS  (CDUSGQ-TOKEN, (RO), #0, #10, P.AAH : 
9 13 O010A BEQL =: 128 ; 
000000006 8F DD 0010C 118:  PUSHL #CDUS_INVPLACE : 0934 
68 1 FB 0011 CALLS #1, CBUSREPORT_SYNTAX_ERROR 3 
65 pd 0115 12%:  PUSHL CDUSGQ_TOKEN+4 ; 0935 
7€ FC a3 C 0011 MOVZWL CDUSGO-TOKEN, -(SP) : 
17 DD 0011B PUSHL ye : 
68 93 FB 011D CALLS #3, CDUSCREATE_NODE ; 
2 0 pO 001 VL. —- RO, ~ CLAUSE ; 
0D DD 001 PUSHL # > 0936 
000000006 00 o1 FB 01 CALLS #1, CDUSTOKEN_MUST_BE 3 
50 2 B0 1 C MOVE CLAUSE, RO : 0937 
04 AC 0D 001 0 13$:  PUSHL PARENT > 0942 
0000v CF 01 FB 001 CALLS #1, CDUSCOMMON_CLAUSE F 
04 00138 RET > 0944 


; Routine Size: 313 bytes, Routine Base: SCODE$ + 0083 
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This syntax routine recognizes fhe “type-clause’’ construct, 
used to define the characteristics of a data type. 


See 
} Description: 


i 

} Parameters: parent By reference, parent node of this construct. 
i Returns: The top-level node representing the type clause, or zero 

: if there aren't any more. 

! Notes: 


GLOBAL ROUTINE cduStype_clause(parent: ref node) 
= BEGIN 


local 
clause: ref node, 
item: ref node, 
lLast_item: ref node; 


! Determine which type of clause we have. 
if token_is(tkn_k_symbol, KEYWORD’) then ( 


! We have a KEYWORD definition. The first thing must be the 
! keyword name. Create a node for it. 


cduSget_next_token(); 
clause = cduScreate_node(node_k_keyword, .cdu$gq_token[len],.cdu$gq_token(ptr)); 


This clause conflicts with any existing KEYWORD clause with the same 
! name. 


if cdu$Slookup_child(.parent ,node_k_keyword, 
-clausetnode-b-text Length],clause([node_t_text]) nega 0 then 
cdu$Sreport syntax_error(msg(cduS_dupkey),1,clause node_b_text_length]); 
cduStoken_must_be(fkn_k_symbol); 
! We have a List of keyword definition clauses. Each is pes tonal ty 
' preceded by acomma. A\Ll of the items are chained as children of the 
! main qualifier clause. 


loop ( 
skip_optional_token(tkn_k_comma) ; 
item = cduSkeyword_clauset.clause); 
if .item eqla 0 then exit loop; 
: Link _parent_to_child(clause,item,last_item); 


R return .clause; 


if token_is(tkn_k_symbol, PREFIX") then ( 


! We have an PREFIX clause. It conflicts with any existing clause. 


9 
(5) 


——— 
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voe=600 1e-8eb-19be FF:shi38 | NEE oeGaASTeRscebO’saeSparsez.esz.1°°%* «29 
3 9 1 if cduScheck_for_children(.parent .node_k_prefix) then 
: £9 ; cduSfepoFt_syntax_error(msg(cdu$_dupprefix)); 
3 f : 5 ! Bypass any optional equal sign. 
: 276 1 cduSget_next_token(); 
: 9 ! skip_optional_token(tkn_k_equal); 
3 4 ! ; ! Now we have a symbol which is the prefix. Store it in a node. 
: 27 1 i clause = cduScreate_node(node_ k_prefix,.cdu$gq_token[len],.cdu$gq_token(ptr]); 
; 101 cduStoken_must_be(tkn_k_symbol); 
3 1 1014 return .clause; 
3 ¢ 1015 ); 
; 1oi8 
: rf + ! There are no more type clauses. 
; a8 1919 return 0; 
3 1930 
: 88 1021 END; 
3 INFO#250 11:0992 
; Referenced LOCAL symbol LAST_ITEM is probably not initialized 
-PSECT SPLITS,NOWRT,NOEXE ,2 
44 3 4F 57 59 45 4B OQOO3E P.AAI: .ASCII \KEYWORD\ 3 
58 49 46 45 52 50 00045 P.AAJ: .ASCI] \PREFIX\ 3 
-EXTRN CDUS_DUPKEY, CDUS_DUPPREF IX 
-PSECT SCODES,NOWRT,2 
O7FC C0000 ENTRY CBUST IPE CLAUSE. Save R2,R3,R4,R5,R6,R7,R8,-; 0957 
5A 000000006 00 9¢ 09002 MOVAB CDUSTOKEN_MUST_BE, R1 ; 
9 000000006 00 9€ 00009 MOVAB CDUSREPORT_SYNTAX ERROR, R9 : 
: 00000006 9E ooi9 MOVAB CDUSCREATE 3 
00 00 6 9€ 0001 MOVAB CDUS$GL_TOKEN_CLASS, R7 ; 
3 0000006 9E pote MOVAB CDUSGET_NEXT- TOKEN, R6 3 
00000006 9E 000 MOVAB CDU$GO_TOK ‘ 3 | 
0D 8 ° 002C CMPL CDUSGL_TOKEN_CLASS, #13 ; 0968 
1 5 4 F BNEQ 3 
28 65 S 031 MOVL CDUSGQ_TOKEN+4, RO 3 
07 00 6 cobb: AP 20 90034 CMPCS CDUSGO"TOKEN, (RO), #0, #7, P.AAL ; 
63 12 09 BNEQ 6$ ; 
66 2 FB F CALLS #0, CDUSGET NEXT_TOKEN 3 oor? 
65 DD ae PUSHL  CDUSGQ_TOKER+4 > 0974 
7E FC UCU A C 4 MOVZ2WL C $560 TOKEN, (SP) : 
1 DD 48 PUSHL # 3 
8 9 4 004A CALLS #5, CDUSCREATE_NODE 3 
4 3 0040 MOVL RO, CLAUS : 
11 Ad 9F 0005 PUSHAB 17(CLAUSE : 0980 
7E 10 <A& 9A : MOVZBL pa ctaust). (SP) 3 
18 odd 000 PUSHL #24 ; 


a acieiaaiincmaiiel 
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PARS 1b-Se -1986 23:48:1 VAX-11 Bliss-32_ V4.0-74 P 11 
Yoe=60 1a-Sep-198e 11:58:26 DISKSVMSMASTERSCCDU.SRCSPARSEZ.032;1°°%° <4) 
04 AC OD 9 PUS PARENT ; 
000000006 00 oo 3 CALLS #4, CDUSLOOKUP_CHILD : 
P88 Boos eat} : 
10 AG OOF 6 PUSHAB V6(CLAUSE) + 0981 
o00000006 Sr pp pooce PUSHE — SCDUS. DUPKEY : 
69 3 fe i - CALLS oF COUSREPORT_SYNTAX_ERROR 3 pa 
6A 1 Fe 007 : CALLS #1, CDUSTOKEN_MUST_BE : 
5 7 D 007A 28: CHL CDUSGL_TOKEN.CLASS; rT + 0989 
06 G f8 Soo 5 EAS #8, couscer_wext_roxen = 
0000v cf ee 0084 CALLS 1. CDUSKEYWORD_ CLAUSE ; 
3 0 0 00089 MOV RO. ITEM F 
D 13 0008C BEQL 46soO9S + 0991 
08 AG p OO8E Ist 8 CLAUSE) ; 0992 
08 A4 38 og 0093 MOVL TEM, 8( CLAUSE) 
04 =A 23 00 0099 4$: MOVL ITEM, 4(LAST_ITEM) ; 
5 3 bg 0090 5$: OVE TEN, LAST_ITEM Poa 
0D 67 p| 3h 6$: cMPL CDUSGL_TOKEN_CLASS, #13 ; $388 
50 es 06 OOA MOVL  CDUSGQ_TOKEN+4, RO ; 
06 00 60 FC AS 2D OOOAA CMPCS  CDUSGQ"-TOKEN, (RO), #0, #6, P.AAJ ; 
0000" CF 90080 ; 
3a 12 0008 BNEQ los : 
oo MMP Ble tess 
000000006 00 08 FB 006A CALLS #2, CDUSCHECK_FOR_ CHILDREN : 
gy 00000006 FF PE SS8tk CERES UA DUPPRES outa eon = 
56 09 FB O00CD 7$: CALLS #0. CDUSGET NEXT TOKEN + 1007 
06 67 Dt 9900 CML CDUSGL_TOKER_ CLASS, ae ; 1008 
66 09 FB i CALLS #0, CDUSGET_NEXT_TOKEN : | 
6 bp 00D8 8$: PUSHL  CDUSGQ_TOKER+4 : 1012 
7E FC AS 3C OOODA MOVZWL CDUSGQ"TOKEN, -(SP) : 
a of PB O0e5 CALLS #3. CDUSCREATE_NODE 
4 33 5 BO MOVL RO. CLAUSE ~ : 
D OD O00E6 PUSHL @& > 1013 
6A 1 FB QOE8 CALLS #1, CDUSTOKEN_MUST_BE ; 
50 4 p OEB 9S: MOVL CLAUSE, RO > 1014) 
50 64 OOOEF 108: frm RO : 1019 
Be OOF 1 ae | : 1021. 
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14-Sep-19 DISKSVMSMASTER:CCDU 
lee 

: Description: This syntax routine recognizes the ‘keyword-clause’’, which 

H is used to define the characteristics of a data type keyword. 


; Parameters: parent By reference, parent node of this construct. 


i Returns: The top-level node representing the clause, or zero if 
: there aren't any more. 
i Notes: 


GLOBAL ROUTINE cduSkeyword_clause(parent: ref node) 
= BEGIN 


local 

clause: ref node; 

! Determine which kind of clause we have. 

if token_is(tkn_k_symbol,"NEGATABLE') then ( 


! We have a NEGATABLE clause. It is represented oy node. 
! This clause conflicts with any existing NONNEGATABLE clause. 


if cduScheck_for_children(.parent,node_k_nonnegatable) then 
cduSreport_syntax_error(msg(cdu$_confnonneg)); 


cdu$get_next_token(); 
, return cdu$create_node(node_k_negatable); 
if token_is(tkn_k_ symbol, *NONNEGATABLE') then ( 


' We have a NONNEGATABLE clause. It is represented by a node. 
! This clause conflicts with any existing NEGATABLE clause. 


if cdu$Scheck_for_children(.parent .node_k_negatable) then 
cdu$Sreport_syntax_error(msg(cdu$_confneg)); 


cdu$get_next_token(); 
return Cdu$create_node(node_k_nonnegatable); 


! We either have a common clause now, or we've run out of clauses. 
return cdu$common_clause(.parent); 


END; 
-PSECT SPLITS.NOWRT,NOEXE,2 


45 4C $9 41 54 41 47 45 4€ tied P.AAK: .ASCII \NFGATABLE\ 
41 54 41 47 45 GE 4E 4F 4E 00054 P.AAL: .ASCII \N NNEGATABLE\ 


rity 
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3 Routine Size: 


our OWUMmU™M 
oo VFuMonvo 


00 


00 60 


67 
000000006 00 


0000v CF 


144 bytes, 


Routine Base: 


04 


000000006 


FC 
0000° 


04 


9 
4 000000006 


04 
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01FC 00000 
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OomOoOoMOTOMMOO— wo-Co— 
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oo00000 
oP | 


SCODES + O2AE 
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3$: 
4$: 
5$: 


F1:58:28 — DISkSumsmaStensceou. sacSPanse2.032;1"°% 


«PSECT 
»ENTRY 


SCODES ,NOWRT,2 
CDUSKEYWORD_CLAUSE, Save R2,R3,R4,R5,R6,R7,°; 


CDUSCHE 
CDUSGO_TOREN+Z, R4 
DUSGL TOKEN. CLASS, #13 


CDU$SGQ_TOKEN+4, RO 
CDUSGQ_TOKEN, (RO), #0, #9, P.AAK 


2$ 
#22 


PARENT 
#2, CDUSCHECK_FOR_CHILDREN 
#CDUS_CONFNONNEG 

#1, CBUSREPORT_SYNTAX_ERROR 
“9 CDUSGET_NERT_TOKEN 

eel 

EDUSGL _TOKEN_CLASS. #13 


CDUSGQ_TOKEN+4, RO 
CDUSGQ"TOKEN, (RO), #0, #12, P.AAL 


5$ 
#21 


PARENT 

#2, CDUSCHECK_FOR_CHILDREN 
#CDUS_CONFNEG 

#1, CBUSREPORT_SYNTAX_ERROR 
#0, CDUSGET_NERT_TOKEN 


a 
#1, CDUSCREATE_NODE 


PARENT 
#1, CDUSCOMMON_CLAUSE 


1034. 


1043 | 
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12-80 8= 1984 7:38:30 DISKSVMEMASTERSLYDU. SRCTPARSE2.832; 1 . (7). 
lee 
! Description: This syaten routine recognizes the ‘‘common-clause'’ construct, 


which used to define the characteristics of parameters, 
qualifiers, and keywords. 


Parameters: None 


Returns: The top-level node representing the clause, or zero if 
there aren't any more. 


! Notes: 


GLOBAL ROUTINE cduScommon_clause(parent: ref node) 
= BEGIN 


local 
089 clause: ref node, 
090 tem: ref node, 
091 last_item: ref node; 
O36 
09 
Ons ! Determine which kind of clause we have. 
O96 if token_is(tkn_k_symbol,"CLIFLAGS') then ( 
398 ! We have a CLIFLAGS clause. Create a parent node for the flags. 


clause = cduScreate_node(node_k_cliflags); 
cdu$get_next_token(); 


! We have a parenthesized List of CLI flags. 

Eat the open parenthesis. Then sit in a loop which recognizes at 
least one item, alone with any others separated by commas. Finally, 
oot she tlese parenthesis. All of the items are chained as children 
° e clause. 


cdu$Stoken_must_be(tkn_k_open_paren); 
loop ( 


item = cduScli_flag(); 
Link_parent_to_child(clause,item,last_item); 

f not token_is(tkn_k_commas then exitloop; 
cdu$get_next_token(J; 


cdu$token must_be(tkn_k_close_paren); 
*e return .clause; 
if token_is(tkn_k_symbol,"DEFAULT') then ( 
! We have a DEFAULT clause. It is represented by a node. 


cdu$get_next_token(); 
return CduScreate_node(node_k_default); 


if token_is(tkn_k_symbol,*LABEL') then ( 
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98 
244 ! We have an LABEL clause. It conflicts with any existing clause. 
401 if cduScheck_for_children(.parent,node_k_label) then 
t88 cduSreport_syntax_error(msg(cdu$_duplabel)); 
$88 ! Bypass any optional equal sign. 
406 cdu$get_next_token(); 
$07 skip_optional_token(tkn_k_equal); 
re ! Finally we have a symbol which is the Label. Make a node for it. 
41 clause = cdu$create_node(node_k_label,.cdu$gq_token[len],.cdu$gq_token(ptrJ); 
41 cdu$token_must_be(tkn_k_symboT); 


return .clause; 


oe ~ 
~~ ee 


token_is(tkn_k_ symbol, "SYNTAX') then ( ' 
! We have an SYNTAX clause. It conflicts with any existing clause. 


if cdu$check_for_children(.parent,node_k_syntax) then 
cduSreport_syntax_error(msg(cdu$_dupsyntax)); 


! Bypass any optional equal sign. 
cdu$get_next_token(); 


skip_optional_token(tkn_k_equal); 


! Finally we have a symbol which is the name of the syntax definition. 
! Make a node for it. 


clause = cduScreate_node(node_k_syntax,.cdu$gq_token[len],.cdu$gq_token[ptr]); 
cdu$token_must_be(tkn_k_symboT)? 
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3 return .clause; 
: ); 
; if token_is(tkn_k_symbol,"VALUE') then ( 
$38 ! We have a VALUE clause. It conflicts with any existing clause. 
440 if cduScheck_for_children(.parent,node_k_value) then 
re cdu$report_syntax_error(msg(cdu$_dupvalue)); 
cas ! Create a node to represent the clause. 
445 clause = cdu$create_node(node_k_value); 
rr] cdu$get_next_token(); 
448 ! We have an optional parenthesized List of subclauses. ; 
449 : Eat the open parenthesis. Then sit in a loop which recognizes at 
450 ! least one item, along with any others separated by commas. Finally, 
451 ' eat the close parenthesis. All of the items are chained as children 
£26 ! of the clause. 
4s if token_is(tkn_k_open_paren) then ( 


cote oe 


fousoet. next_token(); 


; 
cduStoken_must_be(tkn_k_close_paren); 
return .clause; 


! We don't have any more common clauses. 
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item = cdu$value_clause(.clause); 

Link_parent_to_ child(clause,item,last_item); 
if not token_is(tkn_k_comma then exitloop; 
cdu$get_next_token(J;~ 


FC 
0000" 


49 4C 43 00060 P.AAM: .ASCII \CLIELAGS\ 3 
46 45 44 00068 P.AAN: .ASCII \DEFAULT\ : 
42 41 4C OQOOO6F P.AAO: .ASCII \LABEL\ : 
4E 59 53 00074 P.AAP: .ASCII \SYNTAX\ : 
4C 41 56 OO0O7A P.AAQ: .ASCII \VALUE\ 3 
-EXTRN CDUS_DUPLABEL, CDUS_DUPSYNTAX 
-EXTRN CDUS_DUPVALUE 
-PSECT S$CODES,NOWRT,2 
OFFC 00000 -ENTRY RBA URIOWIT Save R2,R3,R4,R5,R6,R7,- ; 1085 
00 9E 00002 MOVAB CDUSCHECK’FOR_CHILDREN, R11 : 
00 9E 00009 MOVAB CDUSCREATE_NOBE, R10 ; 
00 9E 80019 MOVAB DUSGET_NERT_TOKEN, Re 3 
00 9€E 0001 MOVAB CDUSGL ~TOKEN, CLASS. R 3 
00 oF 0001 MOVAB CDUS$GQ-TOKEN?4, R7 3 
4 D 608 CMPL GDUSGL TOKEN. CLASS, #13 3; 1096 
4 is 0 BNEQ $ : 
67 0002A MOVL CDUSGQ_TOKEN+4, RO 3 
a D Bn 4 CMPCS CDUSGQ"TOKEN, (RO), #0, #8, P.AAM ; 
Sh 12 000 NEQ 5$ : 
7 0D 000 PUSHL 4&7 : 1100 
1 Fe OO3A CALLS #1, CDUSCREATE_NODE 3 
0 pO 00050 MOVL RO, 3 
4 FB 0004 CALLS #0, CDUSGET_NEXT_TOKEN : 1101 
DD 0004 PUSHL a7? : 1109 
1 FB 0004 CALLS #1, CDUSTOKEN_MUST_BE 3 
4 004C 1$: CALLS #0, Foy SCLI_F FCAG 3 1111 
DO 00051 MOVL RO, ITEM : 


-PSECT $PLITS,NOWRT ,NOEXE,2 
} 
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VAX-11 Bliss-32 V 
DISKSVMSMASTER: 


:1 
:2 
8 CLAUSE) 

} EM, 8(CLAUSE) 

' me 4(LAST_ITEM) 

C 
4 
18$ 

; » CDUSGET_NEXT_TOKEN 
£ USGL_TOKEN_CLASS, #13 
C 
C 


USGQ_TOKEN+4, RO 
DUS$GQ" TOKEN, (RO), #0, #7, P.AAN 


0 

6 

( 

$ 

T 

$ 

T 

T AST_ITEM 
bu uséLt TOKEN CLASS, #5 
§ 

D 

$ 

D 


6$ 

#0, CDUSGET_NEXT_TOKEN 
#1, CDUSCREATE_NODE 
CDUSGL_TOKEN_CLASS, #13 


CDUSGQ_TOKEN+4, RO 
CDUSGQ_ TOKEN, (RO), #0, #5, P.AAO 


9$ 
#26 


PARENT 

#2, CDUSCHECK_FOR_CHILDREN 
acbus PLABEL 

COUSREPORT SYNTAX_ERROR 

+0. DUSGET_NEXT_TOKEN 
EDOSGL UTOKER CLASS, #6 
#0, CDUSGET_NEXT_TOKEN 
CDUSGQ_TOKER+4 

CoUSGO. TOKEN, -(SP) 

12$ 

COUSGL_ TOKEN_CLASS, #13 


CDUSGQ_TOKEN+4 
CDUSGQ"TOKEN, {Ros #0, #6, P.AAP 


13$ 
# 


een 
- CDUSCHECK_FOR_CHILDREN 


Pia DUPSY 

EOUSREPORT® SYNTAX_ERROR 
50° CDUSGET_NERT_TOKER 
CDUSGL UTOKERS Ee ASS #6 


#0, CDUSGET_NEXT_TOKEN 
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aaBee Fee TFS Ie ALS eRe Mbo seeSeansez.ese:1°°% «hf 

67 DD 00105 11$: PUSHL CDU$GQ_TOKEN+4 : 1162 
| 7€ rc 8b BC Borg? MOVZUL CDUSGO-TOKEN, =(SP) : 
| 18 DD 001 PUSHL # : 
| A : FB 10D 12$ CALLS #3, CDUSCREATE_NODE : 
4 0 pO 0011 MOVL RO. CLAUSE ; 

0D DD 0011 PUSHL “is + 1163 
61 11 0011 BRB 19 : 

0D 68 D1 00117 13$ CMPL SDUSGL_ TOKEN. CLASS, #13 + 1167 
“ if OuIA BNEO 1 : 
5 67 p 11C MOVL.  CDUSGQ_TOKEN+4, RO : 
05 00 6 FC OA?) sD OO1TF CMPCS  CDUSGQ-TOKEN, (RO), #0, #5, P.AAQ : 
0000" cf 91 ; : 
9 12 001 BNEQ 21$ : 

1C DD OO12A PUSHL #28 + 1171 
04 AC DD O012C PUSHL PARENT : 
68 Q FB O12F CALLS #2, CDUSCHECK_FOR_CHILDREN : 
OD E9 001 2 BLBC = RO, «148 : 

000000006 8F DD 01 PUSHL #CDU$_DUPVALUE : 1172 

000000006 00 01 FB 18 CALLS #1, CBUSREPORT_SYNTAX_ERROR : | 

1C DD 00142 148 PUSHL # : 1176 

6A OT FB 00144 CALLS #1, CDUSCREATE_NODE : | 
54 50 DO 00147 MOVL RO. CLAUSE ; 

69 00 FB OO14A CALLS #0. CDUSGET_NEXT_TOKEN + 1177 

07 68 01 $9138 CMPL CDUSGL_TOKER_CLASS, #7 3; 1185) 
2D 12 00150 BNEQ 20S : 

69 00 FB 00152 15$: CALLS #0, CDUSGET_NEXT_TOKEN > 1186 

54 DD 0015 PUSHL CLAU : 1188 
0000v CF 01 FB 00157 CALLS #1, CDUSVALUE_CLAUSE ; 
56 50 00 0015¢ MOVL RO, IT : 

08 Ad D5 0015F TSTL 8 (CLAUSE) + 1189 
06 12 00162 BNEQ  16$ : 
08 AG 56 DO 00164 MOVL ITEM, 8(CLAUSE) ; 
04 11 00168 BRB 17$ : 
04 AS 56 DO 0016A 16$:  MOVL ITEM, 4(LAST_ITEM) : 
55 56 DO OO16E 17$:  MOVL ITEM, LAST_ITE : 

05 68 D1 00171 CMPL § CDUSGL_TOKEN_CLASS, #5 : 1190, 
DC 13 00174 BEQL -15$ : 

08 DD 00176 18$ PUSHL #8 : 1193 

000000006 00 01 FB 00178 19$ CALLS #1, CDUSTOKEN_MUST_BéE : | 

50 54 DO 0017F 20$ MOVL CLAUSE, RO > 1196. 

04 0018¢ RET ; 

50 04 00183 21$ CLRL = RO > 1201 | 

04 00185 RET + 1203 


; Routine Size: 390 bytes, Routine Base: SCODE$ + 033€ 
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> 474 1 1 te¢ 

; 475 1205 1 ! Description: This synton routine recognizes a ‘‘value-clause’’ contruct, 

é of : 8 ; } which is used to define the characteristics of a value. 

; rth} : oS ! Parameters: parent By reference, parent node of this construct. 
; cB 10 ; Returns: The top-level node for the value clause. 

: 4 é 1 9 1} Notes 

; 48 1215 1 !<<- 

> 486 1214 «#1 

; 485 1215 1 GLOBAL ROUTINE cdu$value_clause(parent: ref node) 

3; 4 1 1g = BEGIN 

; 48 121 

; 488 1 + local 

; 489 121 clause: ref node; 

; 490 1220 

; 491 1221 

3 re 1 ¢ ! Determine which kind of clause we have. 

; 49% 1g 4 3 if token_is(tkn_k symbol, *CONCATENATE') then ( 

; 4696 1558 ! We have a CONCATENATE clause. It conflicts with any existing 

3 re 4 1298 ! NOCONCATENATE clause. 

: 499 1 $9 if cduScheck_for_children(.parent,node_k_noconcatenate) then 

3 209 1$30 cdu$Sreport_syntax_error(msg(cdu$_confnocon)); 

; 208 1382 ! Represent the clause with a node. 

; 50 123 

; 504 See cdu$get_next_token(); 

; 505 1235 return cduScreate_node(node_k_concatenate); 

: 506 1236 d3 

; 507 1237 

3 338 1se8 if token_is(tkn_k_symbol,"NOCONCATENATE’) then ( 

; 510 1240 ! We have a NOCONCATENATE clause. It conflicts with any existing 

3 ai 1s) ! CONCATENATE clause. 

; 218 1548 if cdu$Scheck_for_children(.parent,node_k_concatenate) then 

; 318 iste cdu$Sreport_syntax_error(msg(cdu$_confcon)); 

; 21$ 1s66 ! Represent the clause with a node. 

; 518 1368 cdu$get_next_token(); 

; 519 124 return CduScreate_node(node_k_noconcatenate); 

3 259 1250 ; 

.- Sen, 1251 

$ 328 : 6 if token_is(tkn_k_symbol,"DEFAULT') then ( 

: 524 1254 ! We have a DEFAULT clause. It conflicts with any existing DEFAULT 
; $26 1$2? ! or REQUIRED clause. 

; 3 $ 1 5 if cduScheck_for_children(.parent ,node_k_default,node_k_required) then 
; 528 : 28 cdu$report_syntax_error(msg(cdu$_confdefreq)); 

: 3 1260 ! Bypass any optional equal sign. 


BBE tens Shey natin: sald ok Uae een ieee noni em 


ee 


ch$wchar(.cdu$gq_token[len], avalues(ptr}® .veluesliend); 
ch$move(.cdu$gq Token len). . duSgq to 

-veluesCptr +, values(lenJ+T); 

valuesClen] = .valuesClen] + 1 + .cdu$gq_token[len]; 
cduStoken must be(tknk-string) ; ; 

if not token_iS(tkn_k_cOmma) then exitloop: 
cdu$get_next_token(); 


en(ptr], 


; 
, cduStoken_must_be(tkn_k_close_paren); 


greets a node to represent the defaults, and put the values 
! in it. 


: clause = cdu$Screate_node(node_k_default,.values(len],.values(ptr]); 


! Check the length of the default values.. 


if .clause[node_b_text_length] gtru ent_k_max_defval-1 then 
cduSreport_syntax_error(msg(cdu$_defaultlen),1,ent_k_max_defval-2); 
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3 1 1261 
; 126 cduSget_next_token(tkn_k_h_string); 
3 ' es skipvoptional. token(tka. Kk Squal tka_k_h_string); 
3 5 1265 ! The next token is either the default value, or an open 
; 1 68 ! parenthesis to start a List of values. We need a buffer to 
: ; ef ! accumulate the values. 
3 278 . ; $3 with dbuffer(values,tkn_k_max_length, 
3 a) . ' 7) ! Clear the buffer. 
3 58 4 : 7 valuesClen) = 0; 
3 rh 4 : if not token_is(tkn_k_open_paren) then ( 
$ <3 P 1 ie ! It is not an open parenthesis, so it must be the 
; 548 P 1278 ! defauit value. Add it to our buffer as an ASCIC 
3 r?4 . ; Le ! string. 
; 551 P 1281 ch$wchar(.cdu$gq_token[len], evelues(ptr}); 
3 26 P 1 Ht chémove(-cqusgq_token( lend, .cdus q_token(ptr], .values(ptr]+1); 
; 535 P 128 values(len] = 1+ .cdu$gq_token(len]; 
: 554 P 1284 cduStoken_must_be(tkn_k_string); 
; 555 P 1285 
: 388 P 1989 padi 
; 558 P 1288 ! We have a parenthesized List of default values. 
; 559 P 1289 ! Eat the open parenthesis. Then sit in a loop which 
; 560 P 1290 ! recognizes at least one value, “on with any others 
; 561 P 1291 ‘ peperetes by commas. Finally, eat the close paren. 
; $¢ . : 35 ! ALL of the names go in the buffer as ASCIC strings. 
3 P 1294 cdu$get_next_token(); 
; P 1295 loop ( 
3 P 1296 
3 P 1 
: P 1 
: P 1 
5 P 1 
3 P 1 
3 P 1 
3 P 1 
3 P 1 
3 P 1 
: P 1 
3 P 1 
: P 1 
3 P 1 
3 P 1 
3 1 
3 1 
3 1 
$ 1 
3 1 
3 1 
: 1 
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88 return .clause; 

34 ); 

4 if token_is(tkn_k_symbol,"IMPCAT') then ( 

38 ! We have an IMPCAT clause. It is represented by a node. 


cdu$get_next_token(); 
return cduScreate_node(node_k_impcat); 


if token_is(tkn_k_symbol,*LIST') then ( 
! We have a LIST clause. It is represented by a node. 


cdu$get_next_token(); 
return cduScreate_node(node_k_List); 


if token_is(tkn_k symbol, REQUIRED") then ( 


! We have a REQUIRED clause. It is represented by a node. 
! This clause conflicts with any existing DEFAULT clause. 
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if cduScheck_for_children(.parent,node_k_default) then 
cduSreport_syntax_error(msg(cdu$_confdefreq)); 


cduSget_next_token(); . 
R return cduScreate_node(node_k_required); 
if token_is(tkn_k_symbol,*TYPE') then ( 
! We have a TYPE clause. It conflicts with any existing clause. 


if cduScheck_for_children(.parent ,node_k_type_builtin node_k_type_user) then 
cduSreport_syntax_error(msg(cdu$_duptype)); 
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! Bypass any optional equal sign. 


Mon 


cdu$get_next_token(); 


skip_optional_token(tkn_k_equal); 


! Now we have a oygbet which is the name of the desired type. 

: If it begins with a dollar sign, then it’s a builtin type and 
! we create a node with the type code. Otherwise it's a 

! user-defined type and we create a node with the symbol. 


if chrchor(, céutga_tokentptr)) eqlu ‘$* then ( 
oca 
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type_code: byte; 
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type code = cduSbuiltin_type(); 
ot clause = cduScreate_node(node_k_type_builtin,1,type_code); 
else 
clause = cdu$create_node(node_k_type_user,.cdu$gq_token[len],.cdu$gq_token[ptr]); 
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! Oops, it isn’t one of the above clauses. 
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cdu$Stoken_must -be(tkn, k symbol); 


saaliiiasia syntax_error(msg(cdu$_invvalclause)); 
return cduScreate_node(node_k_error); 
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CDUS_CONFNOCON, CDUS_CONF CON 
ONF DEF FREG 


FAULTLEN 
CDus_ DUPTYPE. CDUS_INVVALCLAUSE 
SCODES ,NOWRT,2 
Sous ALUE CLAUSE . Save R2,R3,R4,R5,R6,R7,- 


CDU$GQ- TO ORENTS 
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5 

r 1243 
PARENT 

#2, CDUSCHECK_FOR_CHILDREN 

acu CONF CON 1244 
#1, CBUSREPORT_SYNTAX_ERROR 

#9 CDUSGET_NERT_TOKEN 1248 
431 1249 
CDUSGL_TOKEN_CLASS, #13 1252 
CDUSGQ_TOKEN+4, RO 

CDUSGO"TOKEN, (RO), #0, #7, P.AAT 

7$ 

138 

a3) 1257 
#25 

PARENT 

#3, DUSCHECK_FOR_CHILDREN 

#CDUS_CONFDEFREQ 1258 
#1, CBUSREPORT_SYNTAX_ERROR 

#1 1262 
#1, CDUSGET_NEXT_TOKEN 

CDUSGL_TOKER_CLASS, ye 1263 
#i2 

#1, CDUSGET_NEXT_TOKEN 

#255, VALUES 1311 


VALUES*#8, VALUES+4 
VALU 
CDUSGL_TOKEN_CLASS, #7 


VALUES*#4, RO 
cDUuSGa TOKEN, R6 


R6, 

CDUSGO TOKEN*4 R1 

R6, (RT), 1(RO) 

#1, R6, VALUES 

aii 

118 

#0, CDUSGET_NEXT_TOKEN 
VALUES, R6 

VALUES#+4, R6, R 
CDUSGQ_TOKEN. R 

CDUSGQ TOKEN+4, R1 

a? (RT), 1(ROS 
1(R7) (R65, RO 
RO, VALUES 
#1, CDUSTOKEN_MUST_BE 
FDUSGL _TOKEN_CLASS, ay 
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12-8 08= 1982 $7 :38:38 DISKSVMGMASTER CCD SRCTPARSE2.032; 1 - BS 
08 DD 00127 Pus a8 : 
000000006 00 01 FB 11$: CALLS af CDUSTOKEN,MUST_BE ; 
7E 88 A Bc MOV ZL vA UES, =(SP) : 
000000096 00 Q FB 00139 CALLS #3, CDUSCREATE_NODE : 
4 p 14 MOVL RO. CLAUSE : 

SF F 10 Ad 14 CMPB =—s-s« V6 (CLAUSE), #95 + 1315 
F 18 O14 BLEQU 12$ : 

7E SE 8F 9A OO14A MOVZ7BL #94, =(SP) + 1316 
1 0D 146 PUSHL : 
000000006 BF DD 13 PUSHL  #CDUS DEFAULTLEN : 
68 3 8 138 CALLS #5, CBUSREPORT_SYNTAX_ERROR : 

0001 3 91 128: BRW : 1318 

0D 69 D1 0015C 13$: CMPL § CDUSGL_TOKEN_CLASS, #13 + 1321 
7 if 015F BNEG  14$ : 
50 68 DO 00161 MOVL.  CDUS$GQ_TOKEN+4, RO : 
00 60 ae Ag 20 0164 CMPCS  CDUSGQ-TOKEN, (RO), #0, #6, P.AAU : 
07 12 00160 NEQ 14$ : 

6A 00 FB O16f CALLS #0, CDUSGET_NEXT_TOKEN > 1325) 

1D DD 00172 PUSHL #29 + 1326 

4A 11 00174 BRB 17$ : 

0D 69 D1 00176 14$: CMPL § CDUSGL_TOKEN_CLASS, #13 + 1329) 
15 12 0017 BNEG  15$ ; 
50 68 DO 00178 MOVL.  CDUSGQ_TOKEN+4, RO ; 
00 60 obs: Ag D a0) 84 CMPCS CDUSGQ-TOKEN, (RO). #0, #4, P.AAV F 
07 12 00187 BNEQ 15% ; 

6A 00 FB 00189 CALLS #9 CDUSGET_NEXT_TOKEN : 1333. 

1E DD 0018C PUSHL #36 + 1334 
30 11 O18 BRB 17$ ; 

‘ 0D 69 D1 00190 158 CMPL § CDUSGL_TOKEN_CLASS, #13 + 1337 
¢ 20 if 0193 BNEG 188 : 
50 68 0195 MOVL § CDUSGQ_TOKEN+4, RO ; 
00 60 mF Ag D oo19e CMPCS CDUSGQ"TOKEN, (RO), #0, #8, P.AAW F 
1F 12 OO1A1 BNEQ 18$ ; 

19 0D SOTAS PUSHL #25 : 1342. 

04 AC DD 001A5 PUSHL PARENT ; | 
000000006 99 98 FB O1Ag CALLS #2, CDUSCHECK_FOR_CHILDREN ; 

000000006 8F DD bt PUSHL #COUS_CONFDEFREQ $ 1343 
68 1 FB O18 CALLS #1, CBUSREPORT SYNTAX_ERROR ; 

6A 0 FB 001BB 16$: CALLS #0 CDUSGET_NERT_TOKEN + 1345 

iF DD O18 PUSHL #31 : 1346 
7A 11 001C0 17$: BRB 25$ ; 

0D 69 p| gic 18$: CMPL SDUSGL_TOKEN_ CLASS, #13 ; 1349 
50 6 § 1¢7 MOVL.  CDUSGQ_TOKEN+4, RO ; 
00 60 athe Ag 2b OICA CMPCS CDUSGQ"TOKEN, (RO), #0, #4, P.AAX ; 
€ 12 0010 BNEQ 24 ; 

1 DD 001D PUSHL a3 > 1353 
0 DD 0010 PUSHL @ ; 
04 AC DD 0109 PUSHL PARENT : 
000000006 00 03 FB 001DC CALLS #3, CDUSCHECK_FOR_CHILDREN ; 
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000000006 00 3 fe 
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000000006 00 01 FB 
50 54 3? 
000000006 8F DD 
68 01 FB 
7E 04 
000000006 00 01 4 
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mn 14-Sep-1984 
: 657 1386 1 !+4¢ 
; 658 1 . 1! Description: This syntax routine recognizes a builtin type symbol, 
3 e273 : : : } which can be specified in a TYPE clause. 
: 661 30 Parameters: None. 
: ees : 3g : Returns: By eotus. the serresganding numeric code. Zero is returned 
: See 1395 1 i Notes 
3; 667 1396 1 !<- 
; 668 1a3f 1 
3 66° 1338 1 my cdu$builtin_type 
: 671 1400 
3 ore 1401 own 
3 of? 1008 type_names: vectorCont | max_valtypert. tong) initial ¢ 
; 675 1404 ctext('SINFILE') 
3 676 1405 ctext('SOUTFILE'S, 
3; 677 1406 ctext(*SNUMBER') 
; 678 1407 é ctext(*$PRIVILEGE'), 
; 679 1408 ctext(*SDATETIME'). 
; 680 1409 ctext('SPROTECTION’), 
; 681 1410 ctext('S$PROCESS'), 
; 68 1411 2 ctext("S$INLOG') 
; 68 141 ctext('$OUTLOG'S, 
: 684 141 ctext("SINSYM') 
; 685 1414 ctext('SOUTSYM'S, 
; 686 1415 ctext ("$NODE"), 
3; 687 1416 ctext("S$DEVICE'), 
; 688 1417 2 ctext('SDIRECTORY'), 
3; 689 1418 ctext('$UuIC') 
3 690 1419 ctext('SREST OF _LINE'), 
. Se Stee BAPERT HEE geo faLue), 
: 1258 etext s SAvOryp. Stale"). 
> x 
oe gs Si CHEER EON 
° ctex e 
3 638 1426 ctones eete stg. 36 
; 698 1427 ctext("$$TEST3'), 
3 69° 1688 ctext("$ACL") 
: 701 1430 ‘ 
3 4 1432 type_codes: vectorLent_k_max_valtype+tl,byte] initial (byte( 
: 706 143 nt_k_i , ; 
> 705 1434 5. a th Ep 
3: 706 oy ent_k_number, 
; 707 1436 ent_k_privilege, 
; 708 1437 ent_k datetime, 
; 709 1438 ent_k_protection, 
; 710 1439 ent_k_process, 
et aes? 
5 en outlog, 
: 18 1442 ent_k_ mayae 
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44 45 SA 49 53 45 48 54 4E $2 28 }. 29 1 Wy O1S¢ P.ABP: .ASCII <20>\SPARENTHESIZED_VALUE\ 3 
45 4D 49 54 41 2 &e is 44 24 OA 157 P.ABQ: .ASCII <10>\SDELTATIME\ ; 

47 4—E 49 52 54 53 SF 44 45 54 4F 55 51 24 4 19¢ P.ABR: .ASCII <14>\SQUOTED_STRING\ : 
45 4€ 49 rh 4 177 P.ABS: .ASCII] <5>\SFILE : 

4E 4F 49 53 53 45 2 50 58 4 & 8 177 P.ABT: .ASCII <11>\SEXPRESSION\ : 

1 54 4 4 24 24 133 P.ABU: .ASCII pita FER : 

¢ 54 53 45 34 24 24 O07 1 P.ABV: .ASCII <?7>\$S$TEST -\ : 

54 535 45 54 26 26 4 0195 P.ABW: .ASCII <7>\SSTEST : 

4C 43 41 24 04 00198 P.ABX: .ASCII <4>\SACL\ : 


«PSECT SOWNS,NOEXE,2 


00000000" 00000000" 00000000" 00000000" 00000000" 00000000" 00000 TYPE_NAMES: 
-ADDRESS P.AAY, Ay AAZ, P.ABA, 4 ABB, a} ABC, = 


00000000" 00000000" 00000000" 00000000* 00000000" 00000000' 00018 P.ABD, P.ABE, P.ABF, P.ABG, P.ABH, P.ABI, - : 
00000000" 00000000* 00000000" 00000000" 9000000° 0000000" 00030 P.ABJ. sit P-ABL. 5 ABM, B-ABN, P.ABO, = 
00000000" 00000000* 00000000" 00000000* 00000000" 00000000' 00048 P. ABP, P.ABQ. P.ABR. P.ABS. P.ABT. P.ABU. - : 
90000000; 0000000" 00060 P. ABV. P. ot P.ABX : 

OE OD OC 0B OA 09 08 07 06 05 04 03 02 01 00 00068 TYPE_coDES: 
-BYTE 0, 1, 2, 7 5 6. -; 
19 18 17 16 15 14 13 12 11 10 OF 00077 18, 14,°15; 16, i7,° mth 5! %5,! "5a! ; 


.EXTRN sadn 
-PSECT S$CODES,NOWRT,2 
007¢ 00000 CDUSBUILTIN, TYPE : 


Save R2,R3,R4,R5.R6 3 
56 000000006 00 9€ 00002 MOVAB CDU$GQ_TOKEN, R6- ; | 
55 04 Ab DO 00009 MOVL CDUSGO TOKEN+4, RS > 1468. 
54 01 D0 0000D MOVL i : | 
50 0000'CF44 DO 00010 1$: MOVL TYPE _NAMESCIJ, RO + 1466. 
51 60 9A 00016 MOVZBL (RO)? R1 + 1468 | 
51 20 65 66 2D 00019 CMPCS CDUSGQ_TOKEN, (R5), #32, R1, 1(RO) : | 
01 AO OO01E F 
07 12 0002 BNEQ 2% ; 
50 0000'CF44 9A 00022 MOVZBL TYPE_CODESCI2. RO + 1469 
04 000 RET : | 
54 06 000 9 2% INCL > 1464 | 
19 54 (DT 0 028 CMPL #25 : 
£0 1B 000 BLEGU f : | 
6 DD 90 PUSHL > 1474 
01 DD 000 PUSHL a ; 
000000006 8F DD 0034 PUSHL acDus INVTYPE : 
000000006 00 03 FB 0003A CALLS CBUSREPORT_SYNTAX_ERROR : 
50 D4 00041 CLAL +f : 1475. 
04 00043 RET : 1477 


3; Routine Size: 68 bytes, Routine Base: S$CODE$ + 0708 


> _ i_i_i_| 
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32 V4.0-74 Page 29 
RSCCDU SRCIPARSE2.B32;1" ° 9 «105 
'e4 
! Description: This syntax routine recognizes the "‘cli-flag’’ construct, 


which is simply one of the allowable CLI flags. 
i 

! 

} Returns: A node representing the flag. 

Notes 


GLOBAL ROUTINE cduScli_flag(parent: ref node) 
= BEGIN 


local 
flag: ref node; 


! Determine which CLI flag we have. 


flag = (if token_is(tkn_k_symbol,"ABBREVIATE') then 
cdu$create_node(node_k_abbrev 
else if token_is(tkn_k_symbol, FOREIGN’) then 
cdu$create_node(node_k_foreign 
else if token_is(tkn_k_symbol, IMMEDIATE’) then 
cduScreate_node(node_k_imme 
else if token_is(tkn_k_symbol, "MCRIGNORE') then 
cdu$create_node(node_k_mcrignore 
else if token_is(tkn_k_symboT,"MCROPTDELIM’) then 
cdu$create_node(node_k peroetes) re) 
else if token_is(tkn_k_symbol, "MCRPARSE') then 
cdu$Screate_node(node_k_mcrparse) 
else if token_is(tKn_k_symbol,"NOSTATUS') then 
‘ cdu$Screate_node(node_k_nostat) 
else 


); 
! If we didn’t find one, that's an error. Go on to the next token. 


cdu$create_node(node_k_error) 


if .flag{node_w_type] eqlu node_k_error then — 

cdu$Sreport_syntax_error mSg(cdu$_invcliflag),1,cdu$gq_token); 
cduStoken_must_be(ftkn_k_symbol); 
return .fTag; 


END; 
-PSECT S$PLITS,NOWRT ,NOEXE,2 

54 41 49 56 45 ¢ $8 42 41 QO1A0 P.ABY: .ASCII \ABBREVIATE\ : 
4E 47 49 45 52 4F #8 QO1AA P.ABZ: .ASCII \FOREIGN\ : 
45 54 41 49 46 45 40 4D 49 0QO1B1 P.ACA: . ASCII \IMMEDIATE\ : 
2g 4F 4E 47 49 2 43 40 OQO1BA P.ACB: .ASCII \MCRIGNORE\ : 
45 44 54 50 4F 43 4D QO1CS P.ACC: .ASCII \MCROPTDELIM\ : 
45 53 52 41 50 52 43 4D OOICE P.ACD: .ASCII] \MCRPARSE\ : 


| 
| 
Parameters: parent By reference, parent node of this construct. 


OA 


07 


09 


09 


08 


08 


00 


00 


00 


00 


00 


00 


00 


14-Sep-1984 11:58:26 


53 55 54 41 54 53 4F 4E 00106 P.ACE: .ASCII 


-EXTRN 
-PSECT 
OOFC 000 -ENTRY 
rH 00° CF 9€ 444 MOV 
6 000000006 00 9E Oo8 MOVAB 
D4 000 CLRL 
0D 000000006 00 01 0001 CMPL 
12 uF 854 BNEQ 
54D 019 INCL 
50 04 A6 00 00018 MOVL 
60 66 2D 9H CMPCS 
6 0024 
4 12 00025 BNEQ 
2 0D 00027 PUSHL 
A 11 00029 BRB 
75 54 €E9 00028 1$ BLBC 
50 04 A6é 00 Bong MOVL 
60 66 2D 000 CMPCS 
OA A? Bn 
04 12 00039 BNEQ 
23 0D 00038 PUSHL 
66 11 00030 BRB 
61 54 €9 QOO3F 2$ BLBC 
50 04 A6 00 00042 MOVL 
60 66 2D 00046 CMPCS 
11 A? 00048 
04 12 00040 BNEQ 
24 DD 0004F PUSHL 
52 11 00051 BRB 
4D 54 E9 00053 3$: BLBC 
50 04 A6 00 00056 MOVL 
60 66 2D OQO05A CMPCS 
1A A? 0005F 
04 12 00061 BNEQ 
5 DD 00063 PUSHL 
E 11 00065 BRB 
39 54 E9 00067 4$: BLBC 
50 04 A6 00 O006A MOVL 
60 66 2D 0006 CMPCS 
23. «A? 007 
04 12 0007 BNEQ 
6 dD 00077 PUSHL 
A 11 00079 BRB 
$3 4 €9 Baoee 5$: BLBC 
0 04 A6 00 OO007E MOVL 
60 66 2D Bobs CMPCS 
2 «A? Bee 
04 12 00089 BNEQ 
7 DD 00088 PUSHL 
6 11 00080 BRB 
11 54 £9 ey 6$: BLBC 
50 04 A6 oe 0092 MOVL 
60 66 2D 00096 CMPCS 


ee Oe a Nt a 


\NOSTATUS\ 
CDUS_INVCLIFLAG 
SCODES,NOWRT ,2 


Y 
CDUSGG_TOKEN, R6 


ODO v 
foe 


R4 
CDUS$GQ_TOKEN+4, RO 
CDUSGO-TOKEN, (RO), 


1$ 

#34 

R4, 7$ 
CDUSGQ_TOKEN+4, RO 
CDUSGQ"TOKEN, (RO), 
2$ 

#35 

8$ 

R4, 7$ 
CDUSGQ_TOKEN+4, RO 
CDUSGOQ-TOKEN, (RO), 
3$ 

#36 

8$ 

R4, 7$ 
CDUSGQ_TOKEN+4, RO 
CDUSGQ"TOKEN, (RO), 
4$ 

#37 

8$ 

R4, 7$ 
CDUSGQ_TOKEN+4, RO 
CDUSGO-TOKEN, (RO), 
$ 
38 
$ 


5 
® 
8 
R4, 7$ 
CDUSGQ_TOKEN+4, RO 
CDUSGQ"TOKEN, (RO), 
6$ 
#39 
3 


R4, 7$ 
CDUSGQ_TOKEN+4, RO 
CDUSGQ~ TOKEN, (RO), 


12 
1$-s6p-19 4 23:48:10 VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER:CCDU.SR 


CDUSGL_TOKEN_CLASS, #13 


#0, 


#0, 


#0, 


#0, 


#0, 


#0, 


COUSCLI FLAG. Save R2,R3,R4,R5,R6,R7 


#10, P.ABY 


#7, P.ABZ 


#9, P.ACA 


#9, P.ACB 


#11, P.ACC 


#8, P.ACD 


#8, P.ACE 


4g Pa 
CJPARSE2.832;1 


30 
4 


10) 


12 
oon 18.36 -1984 23:48:10 VAX-11 Bliss-32 V4.0-74 Pa 1 
v046 1a-8ep-19 4 $7338 :38 DISKSVMSMASTER:CCDU.SRCJPARSE2.832;1 9 4d) 
360 AT 98 : 
| 4 12 a09p co = 7$ ; 
$ 99 OO9F PUSHL #40 3; 1511 
1 QOOA1 8 8$ F 
E 04 Boag 7$: CLAL -(SP) 3; 1513 
| 000000006 99 Q1 FB QOOAS BS: CALLS #1, CDUSCREATE_NODE : 
9 DO QOOAC MOVL ’ 5 é 
65 86 Boat TSTW (FLAG) ; 1518 
7 081 BNEQ 9$ : 
56 DD 00083 PUSHL R6 3; 1519 
01 0D 0085 PUSHL #1 : 
000000006 Be DD 8808 PUSHL #CDUS_INVCLIFLAG F 
000000006 00 3 FB 000BD CALLS #3, CBUSREPORT_SYNTAX_ERROR : | 
OD DD 000C4 9$ PUSHL @# : 1520 
000000006 00 01 FB 000C6 CALLS #1, CDUSTOKEN_MUST_BE 5 
50 55 00 000CD MOVL FLAG, RO 3: 1521) 
04 00000 RET 2 1523 
3; Routine Size: 209 bytes, Routine Base: S$CODE$S + 074C 
796 1524 1 END 
797 1525 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS 478 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2077 NOVEC,NOWRT, » _EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SOWNS 130 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Te ie! Vrigle te eee AN) oer Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
$ _$255$DUA28:(SYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 


; Information: 3 
; Warnings: 
; Errors: 0 


COMMAND QUALIFIERS 


| deus ‘ae 


Y00s600 122395-1982 ii 38: 28 Dts KSUMGMAS Tease SRC SRC JPARSE2.B832; ’ 29° 405 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:PARSE2/O0BJ=OBJ$:PARSE2 MSRC$:PARSE2/UPDATE=(ENH$:PARSE2) 
; Size: aad “ a a + 608 data bytes 


; Lexemes/CPU-Min: itl 
; Y Used: 234 pages 
; Compilation Complete 


833 
3° 
H 


| 
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